home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 40
/
64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64
/
demo 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
454b
|
15 lines
100 rem lottosimulation
110 dim zahl%(49)
120 fora=1to6:rem lottozahlen ermitteln
130 zufall=int(rnd(1)*49)+1:ifzahl%(zufall)=1then130
140 zahl%(zufall)=1:next
150 print"[147]bitte geben sie ihre zahlen ein"
160 fora=1to6:rem tippvorschlaege eingeben
170 input" ][157][157]";ein(a):ifein(a)<1orein(a)>49thenprint"ungueltig":goto170
180 next
190 print:print"die aktuellen lottozahlen sind"
200 fora=1to49:ifzahl%(a)=1thenprinta;
210 next
220 fora=1to6:ifzahl%(ein(a))=1thenzaeler=zaeler+1
230 next:print:print:print"sie hatten";zaeler;"zahl(en) richtig"